Top 10k strings from Golf (1985)(16-48 Tape Magazine)[a].z80 in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Covertapes / Sinclair ZX Spectrum - Covertapes - [Z80] (TOSEC-v2007-01-01) /

Back to the directory listing

  10 tw,tn+tn;"
   3 s(p)=s(p)+j:
   3 (a(p),b(p))=th+fo
   2 t(p)=t(p)+j
   2 l(tw)>l(j)
   2 (a(p),b(p))=39
   2 (a(p),b(p))=
   1 z,z;n$(j);":";s(j);
   1 z,pos;p(n);" OVER"
   1 z,pos;"LEVEL"
   1 yp=y(p)+n*w+ye*n*n+yw*n*n
   1 y(tw)=y(j):
   1 y(p)=y(p)-d*w-ye*d^tw-yw*d^tw:
   1 y(p)=y(p)+d*w:
   1 y(p)+d*w<tn+fv
   1 xp=x(p)+n*v+xe*n*n+xw*n*n:
   1 x(tw)=x(j):
   1 x(p)=x(p)-d*v-xe*d^tw-xw*d^tw:
   1 x(p)=x(p)+d*v:
   1 x(p)+d*v<th
   1 tw,z;"WIND ";s$;"  FORCE ";
   1 tw*n-tw,tn+tw-n;
   1 tn+tw,tn+fv;"
   1 tn+th,fv;"
   1 tn+j,tn+j;"
   1 t(tw)<t(j)
   1 t(p)=t(p)+j:
   1 t(j)<t(tw)
   1 t(j),t(tw),bl,ph,fg,bg,lg,rg,x(j),y(j),xf,yf,a,b,c,d,e,f,g,i,le
   1 py,y(p)+n*w:
   1 py,y(p)+(n-d/tn/tw)*w:
   1 py,y(p)+(n-d/tn)*w+ye*(n-d/tn)*(n-d/tn)+yw*(n-d/tn)*(n-d/tn):
   1 px,x(p)+n*v:
   1 px,x(p)+(n-d/tn/tw)*v:
   1 px,x(p)+(n-d/tn)*v+xe*(n-d/tn)*(n-d/tn)+xw*(n-d/tn)*(n-d/tn):
   1 pos=th+fo:
   1 p(p)=p(p)+t(p)-ph
   1 p(n);" UNDER"
   1 o,v,w,xe,ye
   1 n=fv+fo*(g-e)
   1 n,tn+tw;" ";
   1 n,tn+tw+fo*(i-f);"    ":
   1 n$(tw,tw+j):
   1 n$(j),"PLAYER 2 ";
   1 le;" yds";
   1 j,tn+fo;"20 ft"
   1 ho,p,zo,a(j),b(j),a(tw),b(tw),h:
   1 fv+fo*(g-e)+th:
   1 fv*cm,n+th*tn:
   1 cm/tw,th*tn
   1 cm,th/tw*c*n
   1 cm,th*tn-n*c:
   1 cm,n+fv+j:
   1 cm,j/fv*n:
   1 cm,fv*tn-n:
   1 WD<ZO","N","WD<3*ZO","NW","WD<5*ZO","W","WD<7*ZO","SW","WD<9*ZO","S","WD<11*ZO","SE","WD<13*ZO","E","WD<15*ZO","NE"
   1 PRESS ANY KEY TO CONTINUE":
   1 PATHETIC!!! ";t(p)
   1 OUT OF BOUNDS"
   1 ON GREEN":
   1 HOLE IN ONE!!!!"
   1 GAME OVER"
   1 EAGLE!! ";t(p)
   1 BOGIE! ";t(p):
   1 BIRDIE! ";
   1 ANY KEY TO PLAY AGAIN":
   1 ALBATROSS "
   1 -y(p))/ei):
   1 (yf-y(p))^tw)):
   1 (yf-y(j))^tw)
   1 (xf-x(p))^tw+
   1 (xf-x(j))^tw+
   1 (x(n)/ei):
   1 (tn+tw-a(p))^tw)):
   1 (tn+fv-b(p))^tw+
   1 (da+fo*n-tn-tw)>z
   1 (da+fo*n-tn-tw);"
   1 (da+fo*n-tn-th)>z
   1 (da+fo*n-tn-th);"
   1 (da+fo*n-tn-fv)>z
   1 (da+fo*n-tn-fv);"
   1 (da+fo*n-tn-fo)
   1 (a(p),b(p))=55
   1 (a(p),b(p))=103
   1 "WOOD OR IRON? (W/I) ";
   1 "WHICH WOOD?(1 or 3) ";
   1 "WHICH IRON(1 to 9) ";
   1 "PLAYER 1 ";
   1 "PITCH OR CHIP?(P/C)";p$:
   1 "HOW MANY HOLES? ";h$:
   1 "HARD OR SOFT?(H/S)";j$
   1 "ENTER DIRECTION";
   1 "DISTANCE?";
   1 "DIRECTION?";
   1 ";w$;"-WOOD"
   1 ";n$(p);" TO PLAY":
   1 ";n$(p);" TO PLAY"
   1 ";i$;"-IRON"
   1 "75"+fo*(y(n)-yf):
   1 "6";"ENTER PLAYERS' NAMES";
   1 "500"+tw*(t(p)=j)+tw*(t(p)=ph-th)+tn*(t(p)=ph-tw)+
   1 "50"*(t(p)=ph+j)
   1 "40"*(t(p)=ph)+
   1 "31800"+(h-j)*
   1 "21",tw*tn;"
   1 "20"*(t(p)=ph-j)+
   1 "18";n$(tw);":";s(tw)
   1 "175"-y(n))/ei):
   1 "17";"PAR:";ph;"
   1 "123"-fo*(xf-x(n)):
   1 "12",ei;"(MAX. 3 LETTERS)":
   1 ".05",n*fv: